program TestConsole;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Sockets,
  Unit1 in 'Unit1.pas' {DataModule1: TDataModule},
  IlianaProtocol in 'IlianaProtocol.pas';

var
  s : string;
begin
    dataModule := TDataModule1.Create(nil);
    try
      while True do
      begin
        Readln(s);
        if s = 'exit' then
        begin
          break;
        end;
      end;
    finally
        dataModule.Free;
    end;
end.
